Top 10k strings from Power Analitic 1 (1988)(Samir Ribic - Zeljko Juric)(ba).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
6 "X";f;" = ";x(f)'':
4 R E Z U L T A T I
3 "* * * **R E Z U L T A T I** * * "''':
3
2 e$="("+a$+")-("+b$+")":
2 X(F)=X(F)+KI:
2 N R X
2 ;"Pogresna sintaksa...":
2 /(RY/PODY):
2 /(RX/PODX):
2 *p1-p2)/12
2 *E\"n\:G\2p\
2 );"i"''"X4 = ";
2 );"i"''"X2 = ";
2 )+("Preveliki rezultati ili nepoznata u nazivniku..."
1 x1=x2+razmak
1 w=p*p*p/27
1 w=p*a1-q*b1+p(i)
1 w=a1*a1+b1*b1
1 w<(a*a+b*b)
1 v=(a*b1-b*a1)/w
1 u=-(a*a1+b*b1)/w
1 t=-(u+v)/2
1 sp=0.00001
1 q(s)=a(s,s+y)/a(s,s):
1 q(n)=(a(n,s+y)-p)/a(n,n):
1 q(i)=w*q(i)
1 q(i)=b(i)+q*p(i-1
1 p=p+a(n,m)*q(m):
1 p(i)=w*p(i)
1 p(i)=a(i):
1 p(i)=a(i)+p*p(i-1
1 iii=(uf+pi)/2
1 ii=(pi-uf)/2
1 f=3.1415926
1 f |ako je
1 e=.0000001
1 e$;" = ";VAL:
1 d=d*a(f,f):
1 d2=(-m2+16
1 b1=p*b1+q*a1+q(i)
1 b(k)=b(e):
1 a(k,k)<1E-8
1 a(k,E)<1E-8
1 a(i,k)=a(i,e):
1 a(i)=p(i):
1 a(f,t)=-a(f,t):
1 a$="3")+(9940
1 X=LIM+sig*sp*
1 X(n+1)=X(n)
1 X(V)=X(V+1
1 X(F)=Z(F):
1 VAZNA NAPOMENA :
1 U N O S E N J E
1 SM=SM+A(F,T):
1 SM=SM+A(F,G)+A(F,G):
1 RRR=RRR+KI:
1 RESTART (D/N) ?
1 RANGIRANJE:
1 Q(V)=Q(V+1
1 PRITISNI TASTER ZA NASTAVAK ... ":
1 PRETRAZIVANJE SE PREKIDA,JER JE DETEKTOVAN SINGULARITET FUNKCIJEU TACKI X = ";:
1 POWER AN.1
1 PARAMETAR R SE POVECAVA ZA 1 KADA DODJE DO PROMJENE ZNAKA FUNKCIJE ZA DVIJE UZASTOPNE ITERACIJE. ":
1 ODREDJENI INTEGRAL
1 MC
1 L*((J$="1")-(J$="2")):
1 FUNKCIJA IMA PREKIDNU TACKU U TACKI KOJA JE ODABRANA KAO POCETNA VRIJEDNOST ":
1 F(X) X
1 DA LI ZELITE PROMJENU PARAMETARAITERACIJA ZA ISTU FUNKCIJU (D/N)"
1 CHARS
1 BESMISLENA SINTAKSA FUNKCIJE !!!":
1 B(V)=B(V+1
1 A$="7")+(9831
1 A$="6")+(2500
1 A$="4")+(510
1 A$="2")+(700
1 A$="1")+(2999
1 A$="1")+(1000
1 ;("Koristite elemente niza X(i) za promjenjive..."
1 ;("Koristite X kao promjenjivu..."
1 ;"X(";B(F);") = ";Q(F)'':
1 ;"Ubaci broj jednacina sistema."'" (MAX 30)":
1 ;"U toku prolaz broj ";1
1 ;"Stigao do ";x1;
1 ;"Smjer iteracija:"''"
1 ;"SINTAKSA FUNKCIJE ";G;" NEKOREKTNA !":
1 ;"Proces pretrage pomocu ove opcije nastavlja se i nakon pronalazenja jednog od rjesenja,te je pogodan za funkcije sa vise nula."
1 ;"Pritisni taster":
1 ;"PRITISNI R ZA RAST ILI O ZA OPADANJE":
1 ;"PRITISNI BILO KOJU TIPKU ZA GRAFIK ILI Z ZA COPY"
1 ;"Limes iznosi ";
1 ;"FUNKCIJA ";G:
1 ;"Da li zelite preciznu pretragu (D/N) ?"''"(Koristi se u slucaju da postojimogucnost postojanja nula funkcije koje su medjusobno bliske.U tom slucaju vrsi se ispitivanje znaka funkcije u proizvoljno zadanim koracima dok se ne naidje na promjenu znaka funkcije.Tada nastupa uobicajeni iteracioni postupak)"
1 ;"Da li su svi koeficijenti realnibrojevi (d/n)":
1 ;"DA LI ZELITE :"''"
1 ;"COPY (D/N) ?"
1 ;"BAZDARENJE KOORD. SISTEMA (D/N)":
1 ;" * * *
1 ;" COPY (D/N) ?":
1 ;" ";#0
1 ;" ":
1 2^q*ARSH (F(X(n)))
1 1985,1986,1987"'"Juric Zeljko"'"Vidovic Vladimir"'"Ribic Samir":
1 0 ili 1/X ,X=0)"
1 -i);")=";b(i)
1 -i);")=";a(i)
1 ,m)+a(k,m)*p:
1 ,k)/a(k,k):
1 ++"=\*n\"E\:p\2G\>?
1 )=(K+UF*UF-L/UF)/2
1 )=(K+UF*UF+L/UF)/2
1 );"i)=0"''"POCETAK"
1 );"i"''"X3 = ";
1 );"SISTEM JE NESAGLASAN ...":
1 );"Nedozvoljena zona funkcije"
1 );"+";b(n+1
1 ));" Prevazidjen je opseg racunanja. Vrijednost kojoj se racunar najvise priblizavao je trazena"
1 (p*p*p))))/3
1 (f)>1 f=
1 (f) |ako je ABS(f)<1Poslije ovog se nastavlja ovom iteracionom formulom":
1 (a*a+b*b)<e*e
1 (a(f)*1000
1 (X$);" "
1 (A*A+B*B)-A)/2
1 (A*A+B*B)+A)/2
1 '''''"Rjesavanje polinomskih jednacinapomocu modifikovane Newtonove metode.Koeficijenti mogu biti realni ili kompleksni,a stepen nije odredjen.Ipak,preporucuje se da jednacine 1-4 stepena s realnim koeficijentima rijesa-vate algebarski,zbog vece brzine"
1 ''''"Trenutna vrijednost ";j
1 ''''" ODABERITE METODU"'''"
1 '''" METODA MILKO KEVO"'"Opis metode:"'"Originalna funkcija transformisese u oblik: f=
1 ''"X(K+1)=X(K)+(F)/(2^C)":
1 ''"Preporucuju se parametri koji suu zagradama":
1 ''"PRITISNI BILO KOJI TASTER ...":
1 ''"Nadjena vrijednost za X je "''"X = ";x1:
1 ''"Moguce je birati korak"'"integracije (broj podeoka intervala [a,b]),pa samim tim i uticati na tacnost rezultata."
1 '"Za ovu vrijednost X-a vrijednostfunkcije je "''"F(X) = ";fF'
1 & & & & CRTANJE FUNKCIJA & & & &
1 "x(";i;")=";:
1 "b(x^";(n+1
1 "a(x^";(n+1
1 "Y(x)=";y'"Y'(x)=";d1'"Y''(x)=";d2'"Y'''(x)=";d3:
1 "Y = ";e$:
1 "Vrijednost podioka za y ";pody:
1 "Vrijednost podioka za x ";podx:
1 "Unesite sirinu podrucja u kojem ce se kretati Y"'"Y
1 "Unesite sirinu podrucja u kojem ce se kretati X"'"X
1 "Unesite koeficijente (a+bi)":
1 "Unesite jednacinu..."''
1 "Unesite izraz koji zelite da"'"izracunate..."''''"Izlaz : SYMBOL SHIFT a (
1 "Unesi vrijednost za x ";x:
1 "Unesi korak racuna ";h:
1 "Unesi funkciju ";
1 "UNESI LIMES ";LIM:
1 "UNESI FUNKCIJU ";
1 "Tacnost ";f
1 "Stepen polinoma ";n:
1 "Sintaksno neispravna funkcija"
1 "Sintaksno neispravna funkcija , prekid funkcije ili lose unesenneki od parametara":
1 "Singularna tacka s(";s;
1 "Rjesenje x(";r;
1 "Promjenite korak "'"Stari je bio ";sp:
1 "Pocetni argument : ";x
1 "Pocetak":
1 "Parametar prigusenja R (pocetna vrijednost faktora prigusenja q bice -R-1/3.Sto je pocetna vrijednost nule funkcije bolje procijenjena,to R treba da bude manji,obicno 0.Sto je parametar R veci,to proces iteracija sporije tezi rjesenju,ali je preciznost rjesenja veca.Nije preporucljivo unositi velike vrijednosti za R jer proces moze biti prekinut,a da rjesenjenije nadjeno)"''
1 "Parametar R : ";r1
1 "PROCES NIJE DOVEO DO RJESENJA U ";n;" ITERACIJA !":
1 "POJAVILA SE NEPREDVIDJENA GRESKA":
1 "Ovaj dio programa sluzi za odredjivanje numericke"'"vrijednosti odredjenog integralaSimpsonovom metodom."'''"Ova metoda moze se koristiti samo za funkcije koje su neprekidne unutar granica integracije."
1 "Ovaj dio programa sluzi za odredjivanje nula bilo koje funkcije metodom iteracija. Mogu se traziti nule bilo eksplicitnih bilo implicitnih funkcija (u slucaju implicitnih funkcija u jednacini funkcije Y treba zamijeniti sa 0)."''"Formula koja se koristi prilikomiteracija je:"''"
1 "Ne uklapa se u opseg racunanja":
1 "NEKI KOEFICIJENT JE PREVELIK. POKUSAJTE PODIJELITI JEDNACINU.":
1 "NAPOMENA:"'"
1 "Korak pretrage : ";l
1 "Konvergencija nije postignuta"'"Pronadjena su ova rjesenja:"''':
1 "KORAK U KOM CE SE VRSITI PRECIZNA PRETRAGA :"''
1 "Jednacina moze imati stepen 1-4, i moze se unijeti bilo sredjena, bilo nesredjena. Nepoznata se jedino ne moze nalaziti u nazivniku ili pod korijenom."''"Koristite X kao nepoznatu."''"Zbog nemogucnosti Vaseg"'"Spectruma da dize negativan broj na neki stepen,nemojte koristiti znak za"'"stepenovanje (x^3),vec sve"'"izraze kucajte kao proizvod"'"(x*x*x)."
1 "Jednacina ";(f);" :"''
1 "Interval integracije "'"[";a;",";b;"]"'"Tacnost=";e
1 "Funkcija :";A$
1 "Funkcija :"''
1 "Funkcija : ";e$
1 "Funkcija (X je argument) :"''
1 "Funkcija ";(f);":"''"Y = ";
1 "Donja granica"'"Gornja granica "'"Odnos"'"konvergencije"'"i brzine [1]"'"Razmak izmedju"'"rjesenja [.1]"'"Tacnost [5e-8]"'"Funkcija";
1 "Donja granica ";a'"Gornja granica ";b'"Tacnost ";e:
1 "Broj jednacina sistema = ";
1 "Broj iteracija N (nakon N pokusaja proces se prekida ):"''
1 "Broj iteracija : ";n
1 "Broj funkcija (1-9) ? ";
1 "A(";(f);",";(g);") = ";
1 "A(";(F);",";(G);") = ";A(F,G):
1 "< < < R E Z U L T A T I > > > > "'''"X1 = ";s''"X2 = ";
1 ",gdje je k broj iteracije,a c odnos izmedju konvergencije i brzine.Ova konstanta se mijenja u neposrednoj blizini rjesenja i usmjerava proces prema njemu. Racunar ce nas pitati za njenu pocetnu vrijednost.Za vecinu funkcija preporucuje se pocetna vrijednost 1,dok kod periodicnihfunkcija s malim periodom,a vrlovelikom brzinom promjene vrijed-nosti 4.Pitanja gornja i donja granica odnose se na granice intervala u kome posmatramo ovu funkciju":
1 "* * * R E Z U L T A T I * * * *"''':
1 "* # * R E Z U L T A T I * # * #"'''"X1 = ";
1 "(";a(i);"+";b(i);"i)*x^";n+1
1 "''"gdje su X(n) i X(n+1) priblizna rjesenja nakon iteracija n i n+1, q faktor prigusenja, F(X) zadana funkcijai ARSH (X) hiperbolni areasinus definisan po formuli:"''"
1 "''"POMOCU OVE METODE MOGU SE TRAZITI I SINGULARITETI FUNKCIJA."''"OVA METODA SE NE MOZE KORISTITI ZA ODREDJIVANJE VISESTRUKIH NULA PARNOG REDA !!!"'''''"
1 "''"Ovaj dio programa sluzi za crtanje proizvoljnih funkcija u koordinatnom sistemu.Moze se istovremeno crtati do 9 razlicitih funkcija u istom koordinatnom sistemu radi uporedjivanja."'"Kao argument funkcija koristite X."''"Program sam odredjuje oblast definisanosti funkcija tako da ne postoje problemi oko ~zabranjenih~ zona (npr.
1 "''"KOEFICIJENTI SE UNOSE TAKO DA SLOBODNI CLAN BUDE SA LIJEVE A NE SA DESNE STRANE ZNAKA"'"JEDNAKOSTI."''"SA DESNE STRANE STOJI SAMO 0 !!!"''
1 "#U * N * O * S * E * N * J * E#"'''"Unosite jednu po jednu jednacinu"''"sistema.Koristite X(1),X(2)..."''"kao promjenjive.Promjenjiva ne"''"smije biti u nazivniku."'':
1 "# # # R E Z U L T A T # # # # # "'''"X = ";x:
1 "
1 [ -Ymax,Ymax ]"''"Ymax = ";
1 [ -Xmax,Xmax ]"''"Xmax = ";
1 [ -";rx;",";rx;" ]"
1 [ -";rY;",";rY;" ]"
1 ZA PROMJENU PARAMETARA
1 ZA POVRATAK NA MENU
1 ZA NASTAVAK ":
1 U suprotnom smjeru od smjera X-ose"'''''''''
1 U smjeru X-ose"''"
1 Rjesavanje sistema linearnih jednacina"''"
1 Rjesavanje polinomskih"'" jednacina"''"
1 Prvi,drugi i treci izvod"''"
1 Povratak na MENU"
1 Pomocna racunanja sa brojevima"''"
1 PRINT"''"
1 PRINT"''"
1 Odredjivanje nula proizvoljnih funkcija metodama iteracije"''"
1 Odredjeni integral"
1 Numericko rjesavanje":
1 Milko Kevo"''''"(Metoda 1 je brza od druge,a metoda 2 bolje konvergira.)"
1 Kantaris-Howden"''"
1 Izlaz"'''"
1 Granicna vrijednost,izvod i odredjeni integral funkcija"''"
1 Granicna vrijednost"''"
1 Da unosite jednu po jednu"'" jednacinu sistema"''"
1 Da unosite izracunate koefici- jente sistema"
1 Crtanje funkcija"''"
1 Algebarsko rjesavanje"''"
1 "Pocetna priblizna vrijednost nule funkcije :"''
1 PRITISNI BILO KOJU TIPKU... ":
1 * * * "
1 Pritisni bilo koju tipku... ":
1 M E N U
1 ":
1 Pritisak na bilo koju tipku privremeno ~zamrzava~ ekran "'"
1
1
1
1